unit cataurus.verwaltung.admin.ufrStatusTransfer;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, JvProgressBar;

type
  TfrStatusTransfer = class(TForm)
    pbProjekt: TJvGradientProgressBar;
    JvGradientProgressBar3: TJvGradientProgressBar;
    JvGradientProgressBar2: TJvGradientProgressBar;
    Button1: TButton;
    lProjekt: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    FProjectPosition: integer;
    FProjectMax: integer;
    FProjectStatus: string;
    FErfStatus: string;
    FErfPosition: integer;
    FErfMax: integer;
    procedure SetProjectMax(const Value: integer);
    procedure SetProjectPosition(const Value: integer);
    procedure SetProjectStatus(const Value: string);
    procedure SetErfMax(const Value: integer);
    procedure SetErfPosition(const Value: integer);
    procedure SetErfStatus(const Value: string);
    procedure SetDateiMax(const Value: Integer);
    procedure SetDateiPosition(const Value: integer);
    procedure SetDateiStatus(const Value: string);
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
    property ProjectStatus : string read FProjectStatus write SetProjectStatus;
    property ProjectPosition : integer read FProjectPosition write SetProjectPosition;
    property ProjectMax : integer read FProjectMax write SetProjectMax;
    property ErfPosition : integer read FErfPosition write SetErfPosition;
    property ErfMax : integer read FErfMax write SetErfMax;
    property ErfStatus : string read FErfStatus write SetErfStatus;
    property DateiMax : Integer write SetDateiMax;
    property DateiPosition : integer write SetDateiPosition;
    property DateiStatus : string write SetDateiStatus;
  end;

var
  frStatusTransfer: TfrStatusTransfer;

implementation

uses cataurus.verwaltung.admin.ufrmain;

{$R *.dfm}

{ TForm2 }

procedure TfrStatusTransfer.Button1Click(Sender: TObject);
begin
  Form1.AbortTransfer := true;
  Close;
end;

procedure TfrStatusTransfer.SetDateiMax(const Value: Integer);
begin
  JvGradientProgressBar3.Max := value;
end;

procedure TfrStatusTransfer.SetDateiPosition(const Value: integer);
begin
  JvGradientProgressBar3.Position := value;
end;

procedure TfrStatusTransfer.SetDateiStatus(const Value: string);
begin
  Label3.Caption := Value;
end;

procedure TfrStatusTransfer.SetErfMax(const Value: integer);
begin
  FErfMax := Value;
  JvGradientProgressBar2.Max := Value;
end;

procedure TfrStatusTransfer.SetErfPosition(const Value: integer);
begin
  FErfPosition := Value;
  JvGradientProgressBar2.Position := value;
end;

procedure TfrStatusTransfer.SetErfStatus(const Value: string);
begin
  FErfStatus := Value;
  Label2.Caption := value;
end;

procedure TfrStatusTransfer.SetProjectMax(const Value: integer);
begin
  FProjectMax := Value;
  pbProjekt.Max := FProjectMax;
end;

procedure TfrStatusTransfer.SetProjectPosition(const Value: integer);
begin
  FProjectPosition := Value;
  pbProjekt.Position := FProjectPosition;
end;

procedure TfrStatusTransfer.SetProjectStatus(const Value: string);
begin
  FProjectStatus := Value;
  lProjekt.Caption := FProjectStatus;
end;

end.
